﻿Imports Microsoft.VisualBasic
Imports System.Globalization

Public Class clsCultureInfo

    Public cEN As New System.Globalization.CultureInfo("en-US")
    Public cTH As New System.Globalization.CultureInfo("th-TH")

    Public Function EnDate(ByVal strDate As DateTime) As String
        EnDate = strDate.ToString("yyyyMMdd", cEN)
    End Function

    Public Function ThDate(ByVal strDate As DateTime) As String
        ThDate = strDate.ToString("ddMMyyyy", cTH)
    End Function


    Sub aa()

        'สำหรับภาษาไทย (พ.ศ.)
        Dim uiT As System.Globalization.CultureInfo
        uiT = New System.Globalization.CultureInfo("th-TH")

        'สำหรับภาษาไทย (ค.ศ.)

        Dim uiE As System.Globalization.CultureInfo
        uiE = New System.Globalization.CultureInfo("en-US")




    End Sub
End Class
